From af2820894be368e6b75e339012805e8cd9054201 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 14 Mar 1994 21:27:41 +0000 Subject: [PATCH] (underline-region, ununderline-region): Use printable escapes instead of embedding literal control chars in the source. --- lisp/textmodes/underline.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el index 269acd01b93..78c7d8b9e9b 100644 --- a/lisp/textmodes/underline.el +++ b/lisp/textmodes/underline.el @@ -43,7 +43,7 @@ which specify the range to operate on." (goto-char (min start end)) (while (< (point) end1) (or (looking-at "[_\^@- ]") - (insert "_")) + (insert "_\b")) (forward-char 1))))) ;;;###autoload @@ -56,7 +56,7 @@ which specify the range to operate on." (let ((end1 (make-marker))) (move-marker end1 (max start end)) (goto-char (min start end)) - (while (re-search-forward "_\\|_" end1 t) + (while (re-search-forward "_\b\\|\b_" end1 t) (delete-char -2))))) ;;; underline.el ends here -- 2.30.2